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SBEGIN RMSOEXTEN,000,RMSRMS,<DISPATCH FOR EXTEND OPERATION> 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHT HP ERVEDS 


NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


NFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
pokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


TAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
WARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16-SEP-1984 01:18:09 VAX/VMS Macro Vv04-00 Pp RM: 
FO 000 oad oe rae Py att ad fa vod 


gino SR’ 
: Facility: rms32 

9009 0; , 
4s 1 ; Abstract: 
0000 § ; this module is the highest level control routine 
44 Z : to perform the S$extend function. 
0000 5 : Environment: 
4 § : star processor running starlet exec. 
4 } Author: L F Laverdure, creation date: 11-JAN-1978 
0000 40 : Modified By: 
0000 41 ; 
0000 tg : v03-012 RASO284 Ron Schaefer 29-Mar-1984 
4s rb ; Fix error paths to put the area id in the STV. 
0000 45; ¥03-011 $HZ0001 Stephen H. Zalewski, 13-Mar-1984 
it Pk ; When you allocate a BDB, you must bump the AVLCL counter. 
0000 48: v03-010 DAS0001 David Solomon 12-Nov-1983 
i444 rh : Fix incorrect register use (R5 instead of R6) in RMSCARVE_BDB. 
0000 s«51:: V03-009 CWH3009 CW Hobbs 29-0¢ t-1983 
0000 24 3 Fix two uses of RJ to R10 to correct an accvio on 
4464 2? ; an ISAM file path. 
0000 «=s«455:: V03-008 KPL0001 Peter Lieberwirth 27-0c t-1983 
0000 56 ; To journal extends before a connect is done the 
0000 oF 3 BDB and buffer allocated need to contain extra BDBs 
4 28 : and buffers. 
0000 60: v03-007 KBT0543 Keith B. Thompson 10-Jun-1983 
it 6) : Fix broken branch 
0000 63; V03-006 RASO140 Ron Schaefer 24-Mar-1983 
0000 64 ;: Fix bugcheck caused by forgotten BLB for relative 
0000 65 ; and shared sequential files if an error occurs on 
i444 66 3 the actual extend (diskquota probably). 
0000 68; v03-004 KBT0315 Keith B, Thompson 8-Sep-1982 
44 $? ; Remove all of the old SO sharing code 
0000 71; v03-003 KBT0181_ Keith B. Thompson ; e-mug yee 
i448 i $ Reorganize psects and rename entry point to single ‘$' 
0000 74; v03-002 KBT0091 Keith B. Thompson 13-Jul-1982 
4h 2 5 Clean up psects 
9000 77 ; ¥03-001 CDS0003 C Saether 30-Mar-1982 

00 oe $ Always allocate buffer if block i/o in 
B88 4 3 RMSALLOC_BUF routine. 
38 } zo 
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argument List for xab chain processing (allocation xabs only) 
XABSC_ALL,XABSC_ALLLEN, XBCSC_EXTALL,0 
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the size of the extension is returned in fab$l_alq or xab$l_alq 
if allocation xab(s) present. 


a completion ast is queued if so specified by the user. 
; Completion Codes: 
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END OPERATION 16-SEP-1984 01:18: AX/VMS Macro V04-00 Page RM: 
TEND ROUTINE =SEP-1984 Moi deies RMS .SRCIRMSOEXTEN.MAR; 1 - Pst 

~SBTTL RMSSEXTEND = SEXTEND ROUTINE 
p++ 
: RMSSEXTEND me 
: this routine performs the highest level Sextend processing. 7 
; its functions include: a 
: 1. common setu SAE 
3 ¢: check for all streams idle, exiting if not 
; - perform validity checking 
; 4. call main body of extend logic (extend_it) subroutine - first thing 
; it must do is to call the co-routine alloc_buf to allocate 
3 buffer and lock bdb if necessary. it does co-routine call back 
: if buffers allocated so that it can return them when extend_it Phé 
; exits, else does rsb (will not return to it) if no action required. — 
: 5. lock prolog for rel. f. 0. not block i/o accessed In‘ 
3 6. process any allocation xabs, performing the indicated extends Con 
3 and bucket formatting if relative. Pas 
; sam subroutine in rm3face will be called to do the isam stuff. Syn 
3 7. if no allocation xabs present, perform the extend based upon the fab. Pas 
: 8. release the prolog if locked (relative f.o.) Syr 
3 9. exit from extend_it may be call back to alloc_buf to cleanup Pse 
: buffers if allocated - this preserves error code in r0. Cre 
§ 10. exit to the user, generating an ast if requested Ass 
: The 
3; Calling sequence: os 
: entered from exec as a resuit of user's calling sys$extend 60: 
: (e.g., by using the $extend macro). 29 
: Input Parameters: 
: ap user's argument List addr 
: Implicit Inputs: Mac 
: the contents of the fab and possible related user interface 7) 
; blocks. ~}: 
: PY 
; Output Parameters: TO) 
; r0 status code 13; 
3 ri destroyed The 
: Implicit Outputs: 
; Implicit Outputs mai 


standard rms (see functional spec for list). 


on is 19360-1388 91:18:02 AX/VMS pp A pe Page 
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v04-000 RMSSE 6 RMS.SRCIRMSOEXTEN.MAR; 1 (4) 


2 
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| 
| 
; Side Effects: | 
; any locate mode pointer for the file is invalidated. 


extended branches for error conditions 


RIOP: BRW RMSERRIOP ; extend on non-disk device 
RFAC: BRW RMSERRF AC 3; file not write accessed 


entry point for Sextend service 


SENTRY RMSSEXTEND 
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STSTPT XTEND 
FFED' 30 BSBW RMSF SET ; do common setup 
3; note: does not return on error 
06 6A 3E 4 BBC #IFBSV_DAP,(R10),10$ 3; Check for network operation 
442 0 BSBW NTSEXTEND ; Extend file on remote system 
FFE3" 31 BRW RMSEXRMS 3 and exit RMS 
; Check that device is disk and that we are write accessed 
—E3 6A 1C €1 R10), ERRIOP; branch if not disk 
E2 6A 30 €1 ; or if not write accessed 
03 10 all extend routine 
FFD6" 31 ; and exit rms 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16-SEP-1984 01:18: AX/VMS Macro v04-00 Page 6 
y02~500 RMSSEXTEND - Beno ROUTINE iets 7 OF: 58:82 YRMS SRCIRMS EXTEN.MAR;1 ss (6) 
A 336 
A 1 : main “eT of extend code to perform extend function. 
A § ; first call alloc _buf which will allocate buffer and necessary control 
A ; blocks if no streams are connected. if a stream is onreeey connected, 
8 : : ; no action is necessary as buffer and controi blocks will already be present. 
O2A : 
O2A 5 EXTEND_IT: 
31 22 AA O05 £0 O02A 8 BBS #IFBSV_B10, IFBSB_FAC(R10),GETXAB; if block i/o, just go 
002F 9 :; direct to allocate space to 
88 : 9 3; file. no checks on rel or idx 
09 : $ ASSUME IFBS$C_SEQ EQ 0 
23 AA 33 O2F 4 TSTB I1FB$B_ORGCASE (R10) : sequential file ? 
2c 13 0052 5 BEQL : if seq, skip buffer alloc 
55  5E AA 9A 0034 § MOVZBL IFBSB_BKS(R10), R5 ; bucket size in blocks for alloc_buf 
6 01 DO 0038 MOVL 1, R ; needs a lock blb. 
52 10 0038 38 BSBB RMSALLOC_BUF 3 see comments above 
4E 50 §? 0030 39 BLBC RO ; out on error 
23 AA 01 1 0040 40 CMPB #IFBSC_REL, 1FB$B_ORGCASE(R10); relative file ? 
08 12 0044 41 BNEQ 10$ : branch if isam file 
OOOOO000'EF 16 0046 $s JSB RMSLOCK_PROLOG ; read and lock prolog for rel 
0B 11 0O04C 4 BRB 20$ ; join rest of code 
524 bass 44 10$: CLRL R2 3 zero buffer size 
005 45 SCACHE VBN=#1,- >: lock vbn 1 to extend 
0050 246 FLAGS=<LOCK ,NOREAD ,NOBUF FER> 
25 E9 0059 47 20$: BLBC RO,RETURN 3 exit on error 
6C AA 54 00 005C 48 MOVL R4,1FBSL_LOCK_BDB(R10) ; save bdb address 
0060 986 
44 2] : process allocation xab(s), if any. 
a9e0 35 : the subroutine rm$extend_xab is called for each allocation xab found. 
0080 32 
5SC 9D AF 9E 006 57 GETXAB: MOVAB XAB_ARGS,AP 3; set arg List addr 
FF99" 30 0064 58 BSBW RMSRAB_ SCAN 3; go look for xab 
0c 50 €9 0067 59 BLBC RO,EXIT ; Branch on error 
54 D5 006A 60 TSTL RG ; any xabs_ found? 
08 12 006C 61 BNEQ EXIT ; branch if yes, allocation 
443 6¢ 3 occured processing xab(s) 
006E 64 : there were no allocation xabs found. 
943 6g ; use the alq field of the fab to specify the size of the allocation. 
06E 267° 
53 58 00 34 68 MOVL R8,R3 3; cause fab alq to be used 
6 1 4 ; xab, fab inputs at same offset 
56 Be 71 0 CLRL R6 3 Say no xa 
0081 0 th 4 BSBW XTND 3; go do the extend 
i 73 ASSUME IFBSC_SEQ EQ 0 
23 AA 95 76 75 EXIT: TSTB 1F BSB_ORGCASE (R10) ; is this sequential f.o. ? 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16-SEP-1984 0 AX/VMS Macro Vv04-00 Pa 
staat RMSSEXTEND - Beato ROUTINE Sty Pe M8 92 RMS .SRCIRMSOEXTEN.MAR; 1 - 
2 79 7 BEQL CLRTEF branch if 
OE ¢¢ AA gf E 4 45 BBS reas B10, 1FB$B8 FAC (R10 RETURN; return if block i/o accessed 
4 6C AA OD 4 MOVL ire L_COCK_BDB(RTO) ,R4 ; restore lock bdb address 
OOO00000'EF 1 4 7 JMP RMSRLSPLG ; release lock and exit rout ine 
A 0 : with rsb which will deallocate 
" 3; buffers if allocated before 
2 7 : clear the auto extend truncate at eof flag 
A je 
09 ‘ § CLRTEF: CSB #IFBSV_TEF,(R10) 
E 8 ; 
OO8E + : all set 
OQO8E o 3 
OO8E 91 
QO8E 38 RETURN: 
05 OO8E 9 RSB ; call back to alloc_buf 
OO8F 94 


: or return to caller 


after initial return 


RMSALLOC BUF :: 
OVL 


1 14 
RA sOE Ten DISPATCH FOR EXTEND OPERATION 1 mits 9 01:38:08 AX/VMS Macro V04-00 Page 8 
v04-000 RMSALLOC_BUF = CO-ROUTINE TO ALLOCATE/DE 5-SEP=-1984 16:24: RMS.SRCIRMSOEXTEN.MAR; 1 (7) 
4 ~SBTTL RMSALLOC_BUF = CO-ROUTINE TO ALLOCATE/DEALLOCATE BUFFERS 
; p++ 
i ; RMSALLOC_BUF 
§ F : this routine is called to allocate a buffer and lock bdb for use in extend 
O8F 3 processing if no streams connected. the caller is called back so that 
O8F 3 control returns to this routine to return the buffer when the caller 
O8F 3; does anrsb. if no action was taken on the initial call to this routine, 
0 ; 3 control will not return here. 
° r : inputs: 
O08F : rit impure area address 
Bp F 3 r10 ifab address 
O8F 3 r5 size of buffer desired in blocks 
4 ; r6 1 if lock blb needed, 0 otherwise. 
Boee : outputs: 
OO8F : r9 set to ifab addr after initial return if buff allocated 
8 +H § ri-ré6 destroyed 
8 +4 : r0 status of buffer allocation if performed, else success 
O08F : 
008F ; 
OO8F § 
O08F 
OO8F 
OO8F 
0 35 
009 
009A 
009C 
009D 


SOOoQoooooooooooooSo 
ROOD NOA NEW) OOD NAME WIN 9 OD NAME WIN $$ OW NAU EWN 0 OONIAU EWI O OOONIO 


PUTTS BP BB BBE EF PWN WI AINA AIP DIPONIPINIPUNINIDY 2 9 POP MPOOOOOOOOOOOOOO 


50 01 00 A #1,R0 ; assume success 
06 22 AA OS €E0 BBS #IFBSV_BIO, IFBSB_FAC(R10), 10$ ; always allocate if bio. 
1C AA DS TSTL IFB$L_TRAB_LNK(R10) 3 any streams connected? 
01 13 BEQL 10$ ; NEQ if so, then just return and 
05 RSB 3: no callback will occur. 
55 55 09 78 10$: ASHL #9,R5,R5 ; size of buffer in bytes 
59 = 4 aa CLRL R9 : don't want bent (no irab) 
OA 3 
3 A 3; If Al_or BI journaling, allocate a bigger buffer. The bigger buffer 
O0A 3; contains the buffer (as originally required), a BDB to describe the 
O0A 3 journal operation, and an RJR to describe the journal entry. 
- 3; (For a nice picture of this, see RMSCONN.) 
A 
55 OD A PUSHL R5 ; save ‘‘real’’ buffer size 
07 OOAO CA 23 E1 QOA BC #1FBSV_Al,1FBSB Pt Apel 11$ ; skip if not Al jnling J 
55 00000094 8F CO 00 ADDL2 #<RJRSC_BKTLEN+BDBSC_BLN>,R5 3: extra BDB and RJR if | jnling 
08 00A0 CA 2 €1 008 11$: BBC #1FBSV_6I,1FBSB JNLECG(RIO) 12$ ; skip if not BI journaling 
55 6E€ 00000094 8F s} pe ADDL3 #<RJRSC_BKTLEN+BDB C_BLN>, (SP) ,R5 3; add in more for BI 
FF3D". 30 00C 12$:  BSBW RMSBDBACLOC_ALT ; get the buffer 
5 BED C POPL R5 3: restore ‘‘real’’ buffer gize 
59 A oO C8 MOVL R10,R9 3; restore ifab addr tor 
OF 8 3 C BLBC RO g08 3 on error, cleanup and return 
00A0 ¢ 3 CC TSTB FB$B_JNLFLG(R9) i any journal ing? 
ay D BEQL 3$ : skip if none 


RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16-SEP-1984 8: AX/VMS Macro V04-00 Page 
yO2-600 RMSALLOC_BUF = CO-ROUTINE TO ALLOCATE/DE §- “SEP-1 198 te if 0 YAMS SRCIRMS EXTEN.MAR;1 . (3) 
54 40 A D 3 MOVL $L WEB oes R4 ; get BOB address for CARVE_BDB 
00c¢8 88 : 138 BSBW AMSCARYE 3 Srrenge Journaling 
9E 16 D § JSB acSP)+ : call the caller back. when 
DB 5 ; caller ted s, come back here. 
38 be DB 28 20$: PUSHL RO ; Save statu 
FF20' DD 5 BSBW RMSRELEASALL ; Return att "buftere, desc., unmap 
E 60 ; _— section if neccessary. 
30 Sepp 3 3 POPL RO he re status 
17 22 AA 2 E E § BBC #1FBSV_B10,1FBSB_ FACCRIOS, 40$ ; All dene’ if not block i/o. 
55 5A 00 ie 63 MOVL R10, RS t ifab addr into RS. 
th és ASSUME IFBSL_IRAB_LNK €E0 i, a 
55 1C AS 0 SOE $9 30$: MOVL IFBSL_IRAB_LNK(R5), RS ; any more streams connected? 
of 1 it 68 BEQL 40$ : EQL no streams, just return. 
bP ort 69 PUSHL ; Save status code. 
FFOA’ 30 Boe 70 BSBW RMSALBDB ; Restore BDB for block i/o. 
0084 CA B86 OO0F6 71 INCW IFBSW_AVLCL(R10) ; Bump local buffer count. 
50 et OOFA if POPL RO 3 Restore status code 
EC 1 OOFD 7 BRB 30$ 3 Look for more. 
0S OOFF 74 40$: RSB ; And return. 
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~SBTTL RMSEXTEND_XAB = ROUTINE TO HANDLE ALLOCATION XABS 
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; RMSEXTEND_XAB 


this routine is called from rm$xab_scan whenever an allocation xab 
is found on an Sextend. 


the xab is checked for validity and its parameters are used to extend 
_ Al if there are no errors, this routine returns to continue 
e xab scan. 


inputs: 
asp return address if successful 
ap rm$xab_scan argument List addr 
rit impure area addr 
ri10 ifab addr 
r9 ifab addr 
r8 fab ad 


dr 
zero if this is the first call, else the area i.d. of 
the last area + 1 

r3 xab addr 


the xab has already been checked for basic validity 
outputs: 


r4 this xab's area i.d. + 1 
r0-r2,r5-r6 destroyed 


if an error occurs, the return address is popped from the stack 
r0 is set to the error code, and an rsb is performed back to caller 
of rm$xab_scan. 


Be Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Ge See Se Gets Se Sse Sse Gse tee 
3 
= 


RMSEXTEND XAB: : 
PB 


23 AA 02 91 cA #IFBSC_IDX, IFBSB_ORGCASE(R10); if index file 
06 is BNEQ 
0054 OO € BBSS #0,R4,2$ 
09 =i ¢: BRB 5$ 
1154 00 €2 $: BBSS #0,R4,ERRIMX 3; branch if duplicate xab 


; '!! note - different test for 
: indexed f.o. required !!! 


TSTB XABSB_AID(R3) ; must be area 0 
ERRA 
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2 I 4 MODDOOOOOOOOOOOOODODOOODOSOOOOOOOOOSOODOSOOOSOOOOOSOO ZF 
PERE E EPL EERE EE EERE EEE EEE EEE EEE EE PNW NANA A AAAAAAAAAMA 
WA ARPOPPPMPONPININD 4 | DOOD ODO000000000000000000000000000000000 IN 
ROOD NAUN EWN OOO NAME WN OOD NAME WINS OO NAME GINO ODNAUE WINS COON 


95 e 
9 1 BNEQ 15 ; branch if not 
56 3. OCOD 5$: MOVL R3,R6 3; xab addr to right reg 
D «(61 BSBB XTND 3 go perform extension 
0350 _ € A BLBS RO,10$ ; Branch on success 
1 BED ) POPL R1 3 pop return pc 
0 20 10$: RSB 


L 14 


enpoRr TEN piseatcn FOR EXTEND OPERATION i ti at 91:38:02 eaves Macro V04-00 Page 11 
v04- RMSEXTEND_XAB = ROUTINE TO HANDLE ALLOCA 5-SEP-1984 16:24:55 CRMS.SRCIRMSOEXTEN.MAR; 1 (8) 
121 433 
121 434 34+ 
121 435; 
far4) © § 3; handle errors 
121 437: 
13) 039° 
FEDC’ 31 \ ! rr ERRIMX: BRW RMSERRIMX ; duplicate alloc. xab 
FED9* 31 61 4 442 ERRAID: BRW RMSERRAID ; bad area i.d. 


RMSOEXTEN D 
vOu-000 R 


in 
xo 


xz 
Pe Oe oe oe ot ot ot ot ot ot at a UUM UMMM UerMuU UUM UMe eee emer UmmMmmeeeeeee a 
‘x 
4 


— 
xo 
2 


M14 
ANDLE ALLOCA 'S-SEP=1984 forseigs TANS CRCTRMSCEXGENCHAR:? P29 (18, 


+ 
+ 


xtnd subroutine to perform the extend. 


inputs: 
rij impure area addr 
ri10 ifab addr 
r9 ifab addr 
r8 fab addr 
xab addr if any, else 0 
r xab or fab addr 
outputs: 


r0 status code 

xab$l _alq or 

fab$l-alq # of blocks gutendes. 0 if none 
fab$l"stv fab$l_stv + # of blocks extended 
ri,r2.r5,r6 destroyed 


Be Bo Oe Be Se Oe Oe Be Oe Se Oe Se Oe Be Se Oe Se Se Oe Se tse 
i 
o 

= 


AME WN © ONAL WN 0 OO NAME WN O OO NAMES WN OOONOUS 


a a DD et et et a ae ae a a a ee a a aD a a a a a od ad od oo a RU ITI 

DP B Be BBB BE EE PIII GP DINIPINIPONPOPNIPONOPONNONoPoNononofnopnopnoporororsrnnrn Zr 

COM PUoolo fT 9999 SN OL - 10 VV OD 
C9 C909 C9 C9 G9 09 09 09 09 SI SINISE SNS DDADAD AAA A IIIT EB 


fom le lolol el ol al ela lela lala lo lw lala lala lala lo lw lo lololololololololololelolololelolololololololel ol aloo Mi ral 


1018 8F BB XTND: PUSHR #*M<R3,R4,AP> 
ASSUME XABSL_ALQ EQ FABSL_ALQ 
55 10A3 00 MOVL XAB$L_ALQ(R3) ,R5 ; set extend size 
15 BLEQ AL : branch if ba 
10 A D4 CLRL XABSL_ALQ(R3) s and initialize actual extend size 
OE 22 AA AA 08 EO BBS #1FB$0_B10, IFBSB_FAC(R105 ,10$ 
02 91 CMPB ss MI FBSC"1DX, IFB$B~ORGCAS SERIO) 
08 12 BNEQ 10$ 
OOOO0000'EF 16 JSB BASE A TENDS 
4E 11 BRB XTNDXIT 
FEB6" 30 10$: BSBW RMSEXTENDO : ge the extend 
48 50 €9 BLBC RO,XTNDXIT ; branch on failure 
3 note: rl = start vbn of extent 
3 r6 = end vbn of extent + 1 
7? v 
53 6€ 00 8 MOVL (SP) ,R3 3: restore xab/fab address 
10 a3 56 51 «C3 9 SUBL3 R1,R6,FABSL_ALQ(R3) calculate extend size 

0c AB 10 a3 «C0 90 ADDL? FABSLALQ(R3) ,FABSL_STV(RB): and add it in to stv for total 

31 22 AA O05 €0 91 BS #1FBS0_610,1FB$B_FAC(R10) SEQEXT; branch if block i/o accessed 
35 ASE TYPE=B” SRC= IF BSB_ORGCASE (R1 ),- 
9 DISPLIST=<SEQEXT,RELEXT> : dispatch based on file org 

26—si11 94 EQEXT 3 treat Like sequential 


N 14 

RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16-SEP-1984 01:18: AX/VMS Macro V04-00 Page 13 
v04-000 RMSEXTEND. XAB = ROUTINE TO HANDLE ALLOCA ets 7 95:38:98 LRMS SRCIRMS EXTEN.MAR; 1 (12) 

16A 4 

18h 138 p++ 

16A $38 H 

194 44 ; relative file extend = format the buckets 

16A 1 32 

16A § 

16A RELEXT: 

11 6A 38 £0 O16A 04 BBS #IFBSV_SEQFIL, (R10) ,SEQSHR ; branch if seq file shr'd 
QOOOOOOO'EF 16 195 05 JSB RMSFMT_BK ; go format the buckets 
OOOO0000'EF 16 017 206 JSB RMSUPD_PROLOG2 3 and update the prolog 

6C AA D4 OI7A 28 X: CLRL IFB$L_COCK_BDB(R19) ; say lock bdb gone 
16 11 0170 8 BRB XTNDXIT 
17F 09 SEQSHR: 
54 6C AA DO OI7F 10 MOVL IFBSL_LOCK_BDB(R10) ,R4 ; set up r4 to release lock bdb 
0 DD 0183 11 PUSHL ; save status 
O0000000'EF 16 0185 216 JSB RMSSETHEBK ; set hbk and release lock on -1 
50 8EDO 0188 1 POPL RO 3; restore status 
EA 11 O18E 514 BRB ; and exit 
0190 515 
0190 516 ;++ 
0190 517; 
0190 518 ; sequential file or block i/o extend - update high block 
0190 519; 
0190 269 7- 
0190 521 
70 A 56 01 C3 B13e 266 SEQEXT: SUBL3 #1,R6,1FBSL_HBK(R10) 3; set new high block 
0195 524 XTNDXIT: 
1018 8F BA 0195 525 POPR #*M<R3,R4,AP> 3 restore regs 
05 0199 526 RSB 
019A 527 
019A = 528 5 ++ 
Q19A =—-529 : 
019A 530; handle invalid alq value error 
019A 531; 
019A 236 i= 
019A «= 53 
019A 534 ERRALQ: 
019A 535 RMSERR ALQ 
F4 11 #O19F 8536 BRB XTNDXIT 


———_———__ — —_— ~- sy 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION 16*SEP=1984 01:18:09 VAX/VMS Macro v04-00 Page 14 
v0.50 PRS CARVE BOE mt ets a PR ae a as a 9 13) 


a: SUBTITLE RMSCARVE_BDB 
: RMSCARVE_BDB 
> Carve up the bigger buffer into a BDB, RJR, and the original buffer. 


: Inputs: 
RG otig to real BDB. 
R5 as the ‘'real"’ buffer size. 
RO has the IFAB address. 
Outputs: 


BOBs inited. 


3 R6 will point to the BDB used for the AI journal entry. 


>>r>rrrrrrrrrrrrr>r?rr Yr Yr PY 
Ue 2 ee ee ee se oe se Se ee eee ees 


56 18 A400 MOVL BDBSL_ADDR(R4) ,R6 ; get buffer address 
29 00A0 C9 «=6—03t—sé#€E; BBC #1FBS0_AI,I1FB$B_JNLFLG(R9),10$ ; Skip if no Al —— 
34 AG «6056S MOVL R6,BDB$L_Al_BDBTR4) ; put AI_BDB address in real 8DB 
3; Initialize the AI_BDB 

08 AA «600C—CO90 MOVB #BDB$C_BID,BDBSB_BID(R6) : block ID 

09 A6 «6149 MOVB #<BDBSC_BLN/4>,B5B$B_BLN(R6) ; and block Length 
56 = 0 MOVL 6,BDBSC_FLINK(R6) ; bdb queue is null 

04 A6 56 200 MOVL R6,BDB$L_BLINK(R6) 3 «ge 

16 A6 38655) =: 0044 -BF ADDW3 #RJRSC_BRTLEN,RS,BDB$W_SIZE(R6) ; size = RJR + "'real’’ buffer 
1B a6 «50 AG OSE MOVAB BDBSC_BLN(R6),BDBSL_ADBR(R6) =; buffer address 


; Now, correct the "'real'’ BDB's buffer address to point past AI_BDB and RJR. 


18 AS «618 AB §=600000044 BF C1 
24 00A0 C9 «=—(02-Stsé#E& 


ADDL3 #RJRSC_BKTLEN,BDBSL_ADDR(R6) ,BDBSL_ADDR(R4) 
BBC #IFBSV_BI,IFBSB_JNLFLG(R9),20$ ; skip if not BI jnling 


10$: 


; Carve out and initialize the BI_BDB. 


; First, calculate BI1_BDB address. The 61_BDB is allocated after the 
3 actual buffer. The actual buffer is pointed to by BDBSL_ADDR(R4). 
: The actual buffer size is in R5. 


; R6 will point to the BDB used for the BI journal entry. 


I i eee ee at rt at ar ar ar ar areas 


Hos +44 4 6 + $$ 4 $4 4 | fee aia 4 4 upt + 2 FoF FS 


WFP PPPrPrPrPr Kr rrr KrrrrrrYIMPrNWTTN TTT 
FW = OOD NAME WIN O OD NAUES WN OOO NAMES WN 0 OD NAMES WR OWOONAUES W000 


OOOO 0090009 69 0909 09 09 09 09 SI SII NINN SN SD DAA AAA AAA ITT PPP PEE 


> 

— 
be ne ne ne ae ne ne nm ee i ee ie ne ie ew iw ew fw fw aw fan la lola lolololololololololololololololo! 
DPUPVDVWIWIV IV SVSVDVIVIVIVIVSIVLVSVSVSVSUSUSUSUS USS US USVI USI SUS USS STS TST ST STITT ISIS 


56 55 C1 ADDL3 = R5,BDBSL_ADDR(R4) ,R6 ; pointer to BI_BDB 
30 a4) 56Ss«éOO MOVL  R6,BDB$L~B1 BDB(R4) > filled in “real” BDB 
0c 4490 MOVE § #BOB$C_BYD,6DB$8_BID(R6) : block ID 


] 
| 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION Ig- SEP 71984 01:18 :18: :09 AX/VMS Macro V04-00 Page 15 | 
v04=000 RMSCARVE_BDB -SEP=1984 16:2 RMS. SRCIRMSOEXTEN.MAR; 1 (13) 
09 A6 «614 «490 «(O1E7 «595 MOVB #<BDBSC_BLN/4>,BDBSB_BLN(R6) =; and block Length 
66 56 00 O1EB %6 MOVL  R6,BDBSC_FLINK(R6) ; bdb queue is null 
04 A 6 00 OIE 9 L_  R6,BDB$L~BLINK(R6) B ead 
16 A6 55 0044 BF AI OTF 28 ADDW3 #RIRSC_BRTLEN,RS ,BDB$W_SIZE(R6) : buffer size = RJR + buffer 
18 50 A6 OSE 169 399 MOVAB BDBSC_BLN(R6).BDBSL_ADDR(R6)  ; buffer address 
05 O1FE 601 20$: RSB 
1FF 6 : 
1FF 60 «END 


RMSOEXTEN 
Symbol table 


$$.PSECT_EP 
TMP 


~NOREAD 
DEVS$V-RND 
ERRAIDB 


EXIT 

EXTEND_IT 
FABSL_ALQ 
F ABSL_FOP 
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DISPATCH FOR EXTEND OPERATION 


ALO PHCOL OL WOM OOF WOPrI0 


SOoOoQooooooooooooooooooooooooooooooooooooooooooooooo 


SPOS DM UMW OOOO" MWOMNMSOON LOPAL Nye 


gerreraee 
eeekeeke 


0000016A 


<> 


01 


Oooooco°coe 
— Se 


01 


a 
1 
1 


RETURN 
RJRSC_BKTLEN 
RMSALBDB 
RMSALLOC_BUF 
RMSBDBALCOC_ALT 


B 
RMSUPD_PROLOG2 
RMSXAB- SCAN 
RMSSEXTEND 
RMS$_ALQ 
SEQERT 
SEQSHR 
TPTSL_EXTEND 
XABS$B_AID 
XABSC_ALL 
XABSC_ALLLEN 
BSL-ALQ 
XAB_ARGS 
XBCSC_EXTALL 
XTND 
XTNDXIT 


16-SEP-19 
“SEP=19 


4 
4 


16:26:58 


= b00000«6 


eteeeene 
0000008F 

eeeeeere 
eeeeeene 
000001A1 

eeekeene 
eeeeeene 
ketenes 
eeeneene 
ekereene 
eeeeeeee 
ekeeeeee 
00000100 
ekeeeeee 
eeeeenene 
eeeeeee 
eeeeeeee 
eeeeenee 
nthe 
eeeeeeee 
aeeeeeee 


00000008 RG 
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oO 


+ OOOCOCO 


R 
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RMSOEXTEN DISPATCH FOR EXTEND OPERATION a; i 1384 oir) 8:09 AX/VMS nacre v04-00 Page 17 
Psect synopsis “-SEP-19 RMS. SRCIRMSOE EXTEN.MAR; 1 (13) 
pescce eeceen eos --+ 
! i _Psect Synopsis R 
PSECT name Allocation PSECT No. Attributes 


- AB 00000000 ( 0.) 9 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS QOOOOIFF (¢ 511.) 1S Ber PIC USR CON REL GBL NOSHR’ EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
Queecacceeueuseeceuseuers$ 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 39 90:00 :00..08 00:00:00.4 
peunens processing 148 00:00:00.72 00:00:05.40 
334 00:00:11.54 8 OR! £ y= 8e 
Synbol table sort 0 bs SE 00:00:01.87 
112 00:00:02.57 00:00:05.86 
Sysbot table output 11 bs So Bo 8 208-6 
Psect synopsis output 3 00:00:00.0 00:00:00.03 
Cross-reference output 0 00:00:00.00 Bp: 80 308-08 
Assembler run totals 649 00:00:16.60 00:00:43.18 


The working set Limit was 1650 pages. 

63802 bytes (125 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 6 non-local and 20 Local symbols. 
603 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

29 pages of virtual memory were used to define 28 macros. 


CS ee ee be 


Macro Library name 


_8255$DUA28: RMS. $-084RHS MLB: 1 18 
“$255$DUA28: MLB; 1 1 
“$255$DUA28: SySi SBISTARLET. MLB; 2 5 
TOTALS (all Libraries) 24 


1323 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOEXTEN/OBJ=OBJ$:RMSOEXTEN MSRC$:RMSOEXTEN/UPDATE=(ENH$: RMSOEXTEN) +EXECML$/LIB+LIB$:RMS/LIB 
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